open(FILE, "EngineObjects.py");
@file = <FILE>;
close(FILE);
open(FILE, ">EngineObjects.py.aux");

foreach $line (@file)
{
	$line =~ m#\[(\d+)\]\[(\d+)\]#;
	$result1 = $1 - 1;
	$result2 = $2 - 1;
	$line =~ s#\[(\d+)\]\[(\d+)\]#\[$result1\]\[$result2\]#;
	print FILE "$line";
}
close(FILE);
